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Problem 

Medical Office System contains a bug vthich may cause problans if more than 
three patient data files are used. 


Solution 

** changes to MDS cure somevihat critical, the following process should be 
followed closely. 

1. In BASIC, IOAD"ALPHASOR". 

2. Type these lines as shown. 

1240 FZ=INT( (A3-1 )/Zl):IFFZOPOTHEJ4ED=FZ:CL0SE3: 

tM$="EOM!'A"4CHR$(48+K))+":3":NtN3:QOSUB400 :CLS 

1250 IR=«:-5D*Zl:FR=INr( (IR-l)/2)+l:SR=IR-2*INr( (IR-l)/2)-l 

3. SAVE"AIPHAS0R" 

4. In BASIC, IDAD"MEaWJ". 

5. Add these lines as shown. 

120 FZ=INT( (iC-l)/Zl):IFFZOPOTHENED=FZ:CL0SE3: 

FM$="H)ATA"4<2!R$(48+FD)+" :3" :NU=3:GOSUB400 


140 Iil*^-F0*Z1:PR=INT( (IR-l)/2)+l:SR=IR-2*IMr( (IR-l)/2)-l 
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1400 DEFFNA (X )=PEEK (X )+PEEK (X+1) *256: E=Em( &H40A4) 

1410 S=ET«A(E):IFFNA(S+2)<1000lHENE=S:QCXrDl410 
1420 PRINT"TP=aP+"S-Em(&H40A4)"IN LINE 1110":END 

5. TYPE '03101400 

(The coirputer will pause and print "IP=aP4NNNN in line 1110. The NNNN will 
be a number.) 


6. lYPE 'LIST1110 

(If the number after 1P-KIP+... does not match the OMiputer generated 
number, the line must be edited to contain the new value. ) 

7. TYPE 'BDIT1170 

Line 1170 should look like this: 

1170 DATAMDNSORT,PRINT STATEMEMrS,BL[PRT,SET UP SYSTEM DISKS,INIT, 16922, 
16923,16924,1390,4170,3,16452,16453,16454,660,3960,6 

(If the numbers under the word 'PRINT' are not 1390,4170 edit then to 
oonform to the new line 1170. There are no other changes in the line.) 

8. T5(PE'SAVE"MENU" 

** FORMAT A NEW DATA DISK FOR EACH PATIENT DATA DISK. 

Type in this PROGRAM: 

30 CLEAR2000:CLS:AC=1:PO=^1:B2=-1 
15 IFPEEK(293 )=73'IHENZ1 ^1390ELSEZl=660 
20 D$(1)="QLD":D$(2)=’'NEW" 

30 PRINTe320,’WRKING ON RECORD #"; 

^ IFPQOlNT(A0/(Zl+l) )'IHENCIDSE1:P0=INT(A:/(Z1+1) ) :I>=1:QOSOB110: 

C]PEN''R'' ,1, •'PDATA’’4CHR$ (PO+48)+": 1" 

50 PRINTS339,AC 

60 IR=iA:-PO*Zl+l:PR=IMr( (IR-l)/2)+l:SR=IR-2*INr( (IR-l)/2)-l 
70 FIEIIH,SR*127ASA1$,127ASA$:GET1,PR 

80 Bl=INr( (aO-D/Zl) :IFB10B2THEMB2=B1:(3DSE2:PM$="H]ATA''4CHR$(48+B1)+'' :2": 

D=2: aOSUB110 :OPEN''R'', 2, "PDATA''4CHR$ (48+Bl)+": 2" 

90 B=A0-Bl*Zl:B3=INr( (B-l)/2)+l:B4=B-2*INr( (B-l)/2)-l 
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